مديرية التربية والتعليم بالدقهلية ١‏ ثلة ر ثلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الا 7 ی - ر ثانى - العا الدرا 8ت 9 13( 





منهج الصف الأول الثانوى هو انشاء برمجيه للأطلس العربى الإلكترونى بمحتوى (نصوص - صور - أصوات 
- فيديو ) ويتطلب ذلك تصميم واجهة على نافذة النموذج ص۲٥۴۵‏ _بوضع الأدوات 262015ه0) عليها 
من صندوق_الأدوات :1001130 وضبط خصائص كلا من نافذة النموذج والأدوات اما من نافذة 
الخصائص أو من نافذة الكود (البرمجة - معالج الأحداث - الأوامر والتعليمات) والتى تظهر بالنقر 
المزدوج على الكائن (النموذج أو الأداة) فى وضع التصميم ثم كتابة الكود المناسب حتى تقوم واجهة 
البرنامج بالإستجابة لإحتياجات مستخدم برنامج الأطلس 

بيانات البرنامج توجد لدى ملف اكسيل ونحتاج الى فتح قناة اتصال بين برنامج الأطلس وملف الإكسيل بإستخدام 
تصنيفات 0125865) تندرج تحت مسمى '41(00.7/7171 تمكن من قراءة البيانات المخزنة بملف 
وعرضها على واجهة البرنامج والتعامل معها باتباع الخطوات التالية 

)١‏ فتح نافذة الكود الخاصة بنافذة النموذج ۴٥۲٣1‏ والإعلان عن الدالة بالأمر 7”3120)101 كما بالكود التالى 


Function GetDatafromExcelSheet(F1lePath As String, sql As String) As DataTable 


هذه الدالة لها عدد ۲ و سائط هما FilePath‏ حبث يمثل مسار ملف إكسيل sqls‏ 
الدالة بقيمة من النوع 172421516 عبارة جدول بيانات في ذاكرة الكمبيوتر به 
البيانات التي احضرت من ملف إكسيل. 


؟) الإعلان عن المتغيرات بالأمر "01 
لإستخدام المتغير في أكثر من معالج حدث يتم الإعلان عنه على مستوى التصنيف 
۳) تخصيص فيم للمتغيرات 


Private Sub Forml Load(ByVal sender As Svstem.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
Dim MyConnection As New OleDb.OleDbConnection 
Dim MyCommand As New OleDb.OleDbCommaiıd 
Dim da As New OleDb.OleDbDataAdapter 
Dım dt As New DataTable 


filePath, sql As String‏ ساد[ 


filePath = "ExcelData.xls" 
50 = القارة إعمام؟ا"‎ from [Sheet1$]" 


MyConnecton.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & filePath & "Extended Propertles=Excel 8.0 
MyConnection. Open Û 
End Sub 


مديرية التربية والتعليم بالدقهلية خص + نماذج اسئلة عملى + نماذج أسئلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الأول الثانوى - ترم ثانى - للعام الدراسى ٣١۲٣-۲۰۶۲۳۲۱۵‏ 


المتغير :10) 71900060 سوف يمكن من فتح قناة اتصال بورقة العمل التي بها 





البيانات في ملف إكسيل. 
المتغير 715000111112110 سوف يقوم بتنفيذ استعلام بموجبه يتم الحصول على 
البيانات من ملف اكسيل. 


المتغير ول سوف يعمل كمحول للبيانات من ملف إكسيل لجدول البيانات لدى 
المتغير 11]. 


المتغير 16 لدية جدول يحفظ به البيانات التي تم إحضارها من ملف إكسيل. 
فتح قناة الإتصال باستخدام الوسيلة (0/عم00). 
ويمكن توضيح الفرق بين الخاصيتين 
Value Member Display Member‏ للاداة ComboBox‏ كالاتى: 
الأداة ×0 08ط«هC€‏ تحتفظ بقيمتين إحداهما قيمة ظاهرة يتم الاحتفاظ بها داخل 
الخاصية ٠ر21‏ 1(151933:381 والقيمة الأخرى غير ظاهرة يتم الاحتفاظ بها داخل 
الخاصية ValueMember‏ 
me.lbldc. Text=dt.Rows(0).ltem(2). ToString‏ 
* يقصد بالكود السابق تخصيص قيمة البيان الموجود فى الصف الأول والعمود الثالث فى جدول بيانات الإكسيل 
(016) للخاصية 1٥×٤‏ للأداة ©1210 › علما بأن 12037 هى الصفوف › 16125 هى الأعمدة وأرقام كل من 
الصفوف والأعمدة تبدأ من (0) 


* في نافذة الكود يتم اختيار (107©11:05 ۴٥۲٣1‏ ) من قائمة مصNa‏ 1255) واختيار الحدث Shown‏ 
قائمة Method Name‏ 






(Form1 Events) 


* تستخدم جملة طعء٤ه٤‏ /179 لمنع ظهور أخطاء أثناء تشغيل البرنامج 
* أدوات الإدخال ( صندوق الإدخال (Inputbox‏ 


.W۷ *‏ مصر_ > ملف فيديو * 12103. مصره ملف صوت * ع«رم. مصر- > ملف صورة 
* مفتاح ۴5 سه تشغيل البرنامج * مفتاح ۴7 سه لإظهار نافذة الكود 


مديرية التربية والتعليم بالدقهلية 


التوجيه العام للكمبيوتر وتكنولوجيا المعلومات 





للصف الا 


جدول بالكائنات المستخدمة 


نافذة نافدة النمودج_ را٥٣‏ نافدة النمودج_ را٥٣‏ 

تستخدم er‏ واجهة أي مشروع 
بوضع الأدوات 00261:015) عليها من 
صندوق الادوات ×0 ۲٥۵18‏ 

Buuton اداة‎ 

تستخدم في آداء وظيفة معينة عند 
اداة عنوان Labbe]‏ 


اداة PictureBox‏ 
تستخدم في عرض ملفات الصور 


ComboBox اذاة‎ 


قائمة منسدلة لإختيار احداها ‏ 


د\AxWindowsMediaPlayers‏ 
تستخدم في عرض ملفات الصوت 
والفيديو 


( Name 
اسم الأداة)‎ 


(Visible 
تستخدم في‎ 
اظهار أو‎ 
رؤية قيمتها‎ 
أو‎ 
إخفاء الأداة‎ 
False) 


ى 
لذ ی - ترم ثانی - للعام الدراسی 7١77-5١7١‏ 


أحداذ 


Shown 
يحدث مرة واحدة عند ظهور‎ 
النافذة لأول مرة‎ 


تمكننا من تحديد واختيار 


( SizeMode 
جعل الصورة تتمدد‎ 
حسب حجم أداة‎ 
(Picturebox 


SelectedIndexChanged 
تنفيذ الكود المرتبط بهذا الحدث‎ 
عن اختيار عنصر من القائمة‎ 
Combobox 


(Selected Value 
قيمة العنصر المحدد)‎ 


(SelectedIndex 
رقم العنصر المحدد)‎ 


(DisplayMember 
لتحديد حقل من مصدر‎ 
البيانات يظهر محتواه‎ 

فى هذه الأداة) 


(ValueMember 
لتحديد حقل من مصدر‎ 
البيانات كقيمة لكل‎ 
عنصر من عناصر‎ 
القائمة‎ 

URL 

تحديد ملف الصوت أو 
الفيديو المراد تشغيله 








مديرية التربية والتعليم بالدقهلية ١‏ ثلة ر ثلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الا 7 ی - ر ثانى - العا الدرا 8ت 9 13( 


9 
السؤال الاوك 
المطلوب استخدم لغة )7.16 فى إعداد مشروع بإسم 111886 لإدراج صورة داخل أداة التحكم (2× ۲۴80 ں)۲¡c)‏ من 
أداة تحكم أخرى (Picture B‌ox1)‏ 
الحسل ظ 
ادراج أداتى ×0 8عrں)۴i‏ من 17001802 على نافذة النموذج 
010 ومن الخاصية من نرم] نختار 11100116 ثم 
الصورة المطلوبة ثم وعم0 ثم Ok‏ للأداة الأولئ ا 0 ااا 
ادراج أداتى 1 ومن الخاصية ٥×)‏ لكل أداة نكتب النص Insert This Picture‏ 
الموخرد على كل أداة بالصيورة 2 to PictureBox‏ 
١‏ كتابة الكود 
بالنقر المزدوج على أداة 21001 تظهر نافذة الكود نكتب فيها الكود 
التالى 
Me.PıctureBox2.Image=Me.PıctuteBox1.Imag‏ َ 
"- تنفيذ_البرنامج بالضغط على مفتاح 75 ثم الضغط على EEE‏ 
Button |‏ 





السؤال التانى 
المطلوب استخدم لغة )7.26 فى إعداد مشروع بإسم 101886 لإدراج صورة داخل أداة التحكم (0×1 8ع ں)۲۴¡c)‏ من 
ملف مستخدما (:11222111150) 
الحل 
ادراج أداة ×0 ۴)۲8 من 7001802 على نافذة النموذج 
Form‏ 
ادراج أداة 1 ومن الخاصية rext‏ للأداة نكتب النص 
الموجود على الأداة بالصورة 
١‏ كتابة الكود 
بالنقر المزدوج على أداة 2:01 تظهر نافذة الكود نكتب فيها 
الكود التالى 


Dım p As Object 
P=InputBox("Enter A Image FileName") 
PictureBox1.I[mage=Image.FromFıile(p) 
"-_تنفيذ البرنامج بالضغط على مفتاح 1:5 فيظهر صندوق الإدخال‎ 
O©gk نكتب فيه اسم ملف الصورة ثم نضغط على‎ 


Insert a Picture From a File 








مديرية التربية والتعليم بالدقهلية ١‏ ثلة ثلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الا 7 ى - ر تاز E‏ الدرا 8ت 9 13( 


المطلوب استخدم لغة )7.16 فى إعداد مشروع بإسم 111886 لإدراج صورة داخل أداة التحكم (0×1 8ء۲ ں)۲¡c)‏ من 
ملف مستخدما (001220150:0)) 
الحل 
١‏ - تصميم الواجهة 
ادراج أداة ×0 8مurں)¡۴‏ من 1001802 على نافذة النموذج 
Form‏ 
ادراج أداة >0 08طصه ومن الخاصية 166725 للأداة نكتب اسم 
ومسار ملف الصورة أو الصور 
١‏ كتابة الكود 
بالنقر المزدوج على أداة )130 0طمزه') تظهر نافذة الكود نكتب فيها 
الكود التالى 
As Object‏ م Dım‏ 
P=ComboBox.SelectedItems‏ 
PictureBox1.I[mage=Image.FromF1ile(p)‏ 
۳ تنفیذ البرنامج بالضغط على مفتاح ۴۳5 ونختار من أداة 
ComboBox‏ أسم ملف الصورة المراد اظهارها 





السؤال الرا 
المطلوب استخدم لغة )©1ز.ر[؟ فى إعداد مشروع باسم 50111101 لإدراج ملف صوت داخل أداة التحكم 
)sMediaPlayerسWind0)‏ وتشغيله مستخدما صندوق الإدخال (::11121111350) 

الممل 





١‏ - تصميم الواجهة 

ادراج أداة ayerإWindowsMediaP‏ من :1001180 على نافذة 
النموذج ۴٥۲٥‏ 

ادراج أداة وBu))0‏ ومن الخاصية )يرهع1 للأداة نكتب النص 
الموجود على الأداة بالصورة 

١‏ كتابة الكود 

بالنقر المزدوج على أداة 1 Button‏ تظهر نافدة الكود نكتب فيها 
الكود التالى 


Sound‏ لاو 


Dım X As Object 
X=InputBox(" Enter A Sound FileName") 
AxWındowsMedıaPlayer.URL=X 
تنفيذ البرنامج بالضغط على مفتاح ۴5 فيظهر صندوق الإدخال‎ -'" 
نكتب فيه اسم ملف الصوت المراد تشغيله ثم نضغط‎ 
Ok على‎ 








مديرية التربية والتعليم بالدقهلية ١‏ ثلة ر ثلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الا 7 ی - ر ثانى - العا الدرا 8ت 9 13( 


السؤال الحامس 
المطلوب استخدم لغة vb.net‏ کی إعداد مشروع بإاسم 5011110 لإدراج ملف صوت داخل أداة التحكم 
)sMediaPlayerسWind0)‏ وتشغيله مستخدما الأداة (:202100150)) 
الحل 
١‏ - تصميم الواجهة 
ادراج أداة 12135 من 10011802 على نافدة 
النمودذج ۴٥۲٣٥‏ 
ادراج أداة 23060130:2ه") ومن الخاصية و2رزمخ]1 للأداة نكتب اسم 
ومسار ملف الصوت 
١‏ كتابة الكود 
بالنقر المزدوج على أداة عر020601860") تظهر نافذة الكود نكتب فيها 
الكود التالى 


all Sound 


Dım k As Object 
k=ComboBox.SelectedItems 
AxWı1ndowsMedıaPlayer.URL=k 
تنفیذ البرنامج بالضغط على مفتاح ۳5 ونختار من أداة‎ ۳ 
اسم ملف الصوت المراد تشغيله‎ )00101301 





السوال الساد 
المطلوب استخدم لغة )71.12 فى إعداد مشروع بإسم 71060 لإدراج ملف فيديو داخل أداة التحكم 
)ayerاwsMediaPسWİind0w)وتشغیلەه‏ مستخدما صندوق الإدخال (×u)80مہ!)‏ 
الحا 
ادراج أداة layerإWindowsMediaP‏ من 10018062 على نافذة al MUSIC‏ 
النموذج ۴٥٣٣‏ 
ادراج أداة Button‏ ومن الخاصبة عيرع"1” للأداة نكتب النص 
الموجود على الأداة بالصورة 
-١‏ كتابة الكود 
بالنقر المزدوج علي أداة 1 تظهر نافذة الكود نكتب فيها 
الكود التالى 


Dım V As Object 
V=InputBox(" Enter A Video FileName") 
AxWı1ndowsMedıaPlayer.URL=V 
تنفيذ البرنامج بالضغط على مفتاح ۴5 فيظهر صندوق الإدخال‎ -'" 
نكتب فيه اسم ملف الفيديو المراد تشغيله ثم نضغط على‎ 
Ok 








مديرية التربية والتعليم بالدقهلية ١‏ ثلة ر ثلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الا 7 ی - ر ثانى - العا الدرا 8ت 9 13( 


السؤال السا 
أمامك الواجهة التالية قم بإضافة زر أمر (13046022) عليه النص "5407" عند الضغط عليه يتم ايقاف ملف الفيديو 


الحل 
- تصميم الواجهة ادراج أداة 810002 ومن الخاصية 1٥×)‏ 
للأداة نكتب النص :21398 ليظهر كما بالصورة 
١‏ كتاية الكو ك بالنقر المزدوج غل أداة Button2‏ تظهر نافدة الكود 
نكتب فيها الكود التالى 
AxWı1ndowsMedıaPlayer.Close‏ 
"- تنفيذ البر نامج بالضغط على مفتاح 175 فيظهر صندوق الإدخال 
01و بالضغط على مفتاح م560 يتم ايقاف التشغيل 





السؤوال الثامن 
المطلوب استخدم لغة ]71.21 فى إعداد مشروع بإسم ح1و713 لإدراج ملف فيديو (WindowsMedia Player)‏ 
وتشغيله مستخدما الأداة (×>080طصه٤)‏ 
الحل 
- تصميم الواجهة ادر اج أداة WindowsMediaPlayer‏ من 
×0 0018ا على نافذة النموذج E E ۴٥٣٥‏ 
ادراج أداة 00120130) ومن الخاصية ورمععخ] للاداة نكتب اسم 
ومسار ملف الفيديو 
١‏ كتابة الكو د بالنقر المزدوج على أداة ComboBox‏ تظهر نافدۂ 
الكون نكب نها الكود الال > 5 "5 
Object‏ 





D=ComboBox.SelectedItens 
AxWındowsMedıaPlayer.URL=D 
تنفيذ البرنامج بالضغط على مفتاح 5 ونختار من أداة‎ -۳ 
اسم ملف الفيديو المراد تشغيله‎ C008 0× 





المطلوب استخدم لغة 71.214 فى إنشاء مشروع جديد تحتوى نافذة النموذج فيه على أداة تحكم واحدة 
(×080طص€0) ثم كتابة كود البرمجة الخاص بالإعلان عن متغير (06) من نوع 12726212516 

والإعلان عن متغيران (131162214,501)ليوضع بداخلهم اسم ملف قاعدة البيانات (172©11(262.515) التى تحتو 
على بيانات الدول وجملة (06ع5616) 





الحطل 
-١‏ تخمم الواجهة 
من مربع الأدوات ToolBox‏ يتم وضع أداة التحكم 0 C0mb0B‏ داخل نافذة النمودذج 
١‏ كتابة الكود 


الانتقال لنافذة البرمجة بالضغط على مفتاح 177 ونكتب الكود التالى 


Dim dt as New DataTable 
Dim filePath,sql as String 








مديرية التربية والتعليم بالدقهلية ١‏ ثلة ثلة نظرى 
التوجيه العام للكمبيوتر وتكنولوجيا المعلومات للصف الا ا ى - 1 تاز E‏ الدرا 8ت 3 13( 


السؤال العاشر 
المطلوب استخدم لغة 71.34 فى إنشاء مشروع جديد تحتوى نافذة النموذج فيه على أداة تحكم واحدة 
(×080ط«€0) ثم كتابة كود البرمجة الخاص بتخصيص قيمة للمتغير :111617211 على أن تكون اسم ملف قاعدة 
البيانات الموجودة داخل وسط التخزين (1720611(2148.:19) وتخصيص فيمة للمتغير 501 على أن تكون استدعاء 
اسماء القارات الموجودة داخل ورقة العمل 41ع51:2 فى ملف قاعدة البيانات (12:26©11(248.:15) 
السل 
من مربع الأدوات 10011802 يتم وضع أداة التحكم ×0 08ط C٥‏ داخل نافذة النموذج ٣٥۲٥‏ 
1- كتابة الكود 
ا ا ار اها على ا وا رفت الكرة قال 
fılepath = "ExcelData.xls"‏ 
from [sheet1$]"‏ القارة sql = "Select‏ 





السؤال الحادى عشر 
المطلوب فتح نافذة الكود الخاصة بنافذة النموذج ۴٠٥۲11‏ والإعلان عن الدالة GetDataFromExce1ISheet‏ بعدد 
۲ وسائط هما 1112224612 يمثل مسار ملف الإكسيل . 01 الجملة التى من خلالها سوف يستعلم عن البيانات من ملف 
اكسيل وتعود الدالة بقيمة من النوع 1724218116 عبارة عن جدول فى ذاكرة الكمبيوتر به البيانات التى احضرت من 
ملف الإكسيل 

الحل 


Function GetDataFromExcelSheet(filePath as string , sql as string) as DataTable 


End Function 





المطلوب فتح نافذة الكود الخاصة بنافذة النموذج ۴٠١.1‏ والإعلان عن متغير 06 من النوع 1226231816 ثم 
تخصيص ناتج القيمة الراجعة من الدالة 14ع2641(242101211:226151:6) له بعد اعطاء مسارملف الإكسيل 
5. !21 4ن وجملة الإستعلام 901 التى من خلالها يتم الحصول على أسماء القارات من جدول 
البيانات 1(262 

الححل 


الانتقال لنافذة البرمجة (الكود ) بالضغط على مفتاح ۴۳7 ونكتب الكود التالى 
Dim dt as New DataTable‏ 


dt=GetDataFromExcelSheet(c:\Atals\database\atals.x1s ," Select القارة‎ from [data$]") 
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- فى الكود 122421216 Dim dt As New‏ تم الإعلان عن المتغير 04 من النوع( dt New - DataTable - as‏ ( 
"- فى الكود التالى CmbbxContinent.DisplayMember=dt.Columns(0).ToSrting‏ 
يقصد ب (0011311121150)0) العمود ( الثانى - الثالث - الأول - لاشئ مما سبق ) 

۳- 411351(219.15 ملف (صوت - صورة - فيديو - اكسيل ) 

؛ - :60130ددره") ( أداة تحكم ‏ خاصية ‏ وسيلة - اجراء ) 

ه.- يتم كتابة الكود فى معالج الحدث ( BTN*Click -BTN_Click - BTN.Click - BTNClick‏ ) الخاص بالزر Button‏ 

"- الحدث (ررزوترلع 112 Shown - Enter-‏ - ع1161') ) الخاص بنافذة النموذج يحدث مرة واحدة عند ظهور النافذة لأول مرة. 

۷- المتغير فى filePath=''Exce1Data.xls''"‏ هو ( filePath - ExcelData.xls‏ - لاشئ مما سبق Exce1Data-‏ ) 
Open -/‏ فى الكود التالى درعم7190001111611011:.0 تعتبر ( وسيلة - خاصية - حدث - أداة ) 

۹- فى الكود التالى Dim dt As New DataTable‏ المتغيرهو ( 22621216 - as - dt - New‏ ) 
€mbbxState.SelectedIndex=1 -٠‏ يعنى تخصيص القيمة ١‏ (للخاصية- للوسيلة-للحدث ‏ للأداة SelectedIndex(‏ 
11- الخاصية SelectedIndex‏ خاصة بالأداة ( Label - Button - Textbox - ComboBox‏ ( 
5 يتم وضع أداة التحكم ×0 ٥٥08‏ داخل نافذة النموذج من( (ToolBox-Properties-Code-Form‏ 

؛ -١‏ يتم كتابة الكود فى نافذة ( البرمجة - النموذج - الخصائص - المشروع ) 

16 عدد الوسائط فى هذه الدالة (اثنان ‏ واحد - ثلاثة - لاشئ مما سبق ) 

Function GetDatafromExcelSheet(FlePath As String,sql As String)As DataTable 

5' يتم وضع أداة التحكم 20111101301 داخل نافذة ( الكود- الخصائص - النموذج - البرمجة ) من صندوق الأدوات 
ToolBox‏ 

۷- الوسيط ( FilePath - String - 501 - Function‏ ) يمثل مسار ملف الإكسيل 

Function GetDatafromExcelSheet(FlePath As String,sql As String)As DataTable 

-١ ۸‏ الوسيط ) String - sql -Function‏ - 11162241 ) يمثل الجملة التى من خلالها يتم الإستعلام عن البيانات من ملف الإكسيل 
Function GetDatafromExcelSheet(FlePath As String,sql As String)As DataTable‏ 

۹- تعود الدالة بقيمة من النوع ( As- Function - String - DataTable‏ ( 

Function GetDatafromExcelSheet(FilePath As String,sql As String)As DataTable 

٠‏ نوع البيان ( 024242116 -— integer - Boolean - short‏ ) عبارة عن جدول بيانات فى ذاكرة الكمبيوتر 

) 75 173 - F7 - F1) "-فى برنامج .ءھ218 uء۷1لفتح نافذة الكود نضغط على مفتاح‎ ١ 

(ComboBox - label - Textbox - Button) للأداة‎ ValueMember الخاصية‎ -1 Y۲ 
)فى الإعلان عن المتغير.‎ New - Dim - dt - 1721212016 ( يستخدم الأمر‎ Dim dt As New 102621211» فى الكود التالى‎ "٠ 
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؛- يمكن استخدام جملة 177/2611 لإكتشاف الأخطاء ( اللغوية - اثناء تشغيل البرنامج - المنطقية - النحوية ). 


5" يستخدم الرمز ( # - $ - % - 8 ) بين المتغيرات الحرفية والنصوص لدمجها وجعلها سلسلة حرفية واحدة. 
tems - Click - Open ) -"5‏ - )162 ) خاصية تستخدم فی كتابة نص على الأداة01))ن13 


۷- يتم الانتقال لنافذة البرمجة بالنقر المزدوج على نافذة ( النموذج - الكود - الخصائص - صندوق الأدوات ) 

7 (الوسيلة - الحدث - الخاصية - الأداة ) 5120182 يحدث مرة واحدة عند ظهور النافذة لأول مرة. 

SelectedIndexChanged )هو‎ Button - Label - ComboBox - Timer ( الحدث الإفتراضى للأداة‎ 4 

"٠٠‏ يتم الإعلان عن المتغيرعلى مستوى (الإجراء- التصنيف- معالج الحدث - كل ماسبق) حتى يمكن استخدامه ف اكثر من معالج حدث. 





filePath="ExcelData. xls'" -‏ تعنى تخصييص قيمة للمتغير 1722611(262.<[5 على أن تكون 111622)[12( ( 

da.۴111)36( - "‏ يعنى استخدم المتغير وهل للخاصية ۴111 فى ملء جدول البيانات 01( ( 

"- يتم فتح قناة اتصال بين برنامج الأطلس العربى وملف اكسيل بإستخدام تصنيفات 2125565 تندرج تحت مسمى )۸AD)0.NE٤1‏ ( 

؛- الأداة >0 08ط «هK‏ تحتفظ بقيمة غير ظاهرة داخل الخاصية (Display Member‏ ( 

( ) ValueMember تحتفظ بقيمة ظاهرة داخل الخاصية‎ K٥” الأداة >0 08ط«‎ -٥ 

5 يمكن استخدام الخاصية :رع 1(1571231/16©121 للأداة ×0 08ط «ه٥K‏ لتحديد حقل من مصدر البيانات يظهر محتواه فى هذه الأداة( ) 

۷- يمكن استخدام الخاصية 172111716121 للأداة ×080ط«K0‏ لتحديد حقل من مصدر البيانات كقيمة لكل عنصر من عناصر 
القائمة 

۸- يمكن انشاء متغير من نوع 1724312116 فى الذاكرة يحفظ فيه البيانات التى يتم احضارها من ملف البيانات ( ( 

۹- يمكن استخدام متغير من نوع 0161(260011211121101) بغرض فتح قناة اتصال بملف بيانات( ( 

( (511 يتم الإعلان عن الدالة (رoناءہں۴) بإستخدام كلمة‎ ٠ 

( القيمة الراجعة من الدالة التالية من نوع ع12:غ5(‎ ١ 

( JGetDatafromExcelSheet(FilePath As String,sql As String)As DataTable 

۲- يستخدم متغير من نوع :0161(10011116©1101) فى اغلاق قناة الاتصال التى تم فتحها( ( 

-١ *‏ يتم فتح قناة اتصال بين البرنامج الذى يتم انشاؤه بلغة as1.»‏ ua18ء۷1‏ وملف اكسيل بإستخدام أدوات )۸AD0.NET‏ ( 

؛ -١‏ لتجنب ظهور التكرار فى اسماء القارات نستخدم الكود التالى ''[1$٤ءءطS؟] from‏ القارة ١ Sql=""Select distinct‏ ) 

) ٠ ( النقر المزدوج على قائمة القارات فى وضع التصميم يظهر معالج الحدث.‎ -١ 

5 من مربع الأدوات :1001130 يتم وضع أداة التحكم 001170130:2) على نافذة الكود( ( 

-١‏ '"12611(26.219"'-4512 كود البرمجة الخاص بتخصيص قيمة للمتغير 19 على أن تكون اسم ملف قاعدة البيانات 
الموجودة داخل وسط التخزين هو 10:0©1122]8( ( 

7 يتم كتابة الكود فى معالج الحدث ع1ع8620:11 الخاص بالزر 131146022( ( 

۹- يمكن استخدام متغير من نوع :01601100011116©1101) لفتح قناة اتصال بورقة العمل التى بها بيانات ملف إكسيل( ( 
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( ) .xls هو‎ filePath='"Exce[ Data.xls'' المتغير فى الكود التالى هو‎ ٠ 

( ( Select القارة‎ f٣٥ لإسترجاع جميع السجلات من جدول بيانات 18161 نكتب الجملة121161‎ -١ 
( ( تعتبر حدث.‎ My€onnecti0¬.0 pe فى الكود التالى‎ Open - ۲ 

( ( يتم الإعلان عن الدالة فى نافذة النموذج‎ -٣ 

السؤال التالث :- أكتب | 





11101 1 [1 ( أمر الإعلان عن الدالة‎ )١( 


(۲) أمر الإعلان عن المتغيرات ( 0 
(۳) قائمة تستخدم في اختياروتغيير الحدث بنافذة الكود ( ا 


0 ( قائمة تستخدم في اختيار الكائن بنافذة الكود‎ )٤( 

(5) حدث يحدث مرة واحدة عند ظهور نافذة النموذج لأول مرة ( ا CS‏ 

(5) أداة عنوان ( o‏ 

(۷) يظهر عند النقر المزدوج على قائمة القارات في وضع التصميم ( 213231151110110 
(۸) وضع يظهر فيه معالج الحدث عند النقر المزدوج على قائمة القارات ( 8[ [ [ Ca‏ 

(9) جملة تستخدم لمنع ظهور أخطاء أثناء تشغيل البرنامج ( CEOs‏ 

53 ( أداة تحكم تستخدم فى ادراج الصور‎ )٠١( 

E 00 ( صندوق الإدخال‎ )١1١( 

E ( أداة تحكم تستخدم في ادراج ملف صوت أو فيديو‎ )١۲( 

CS 1 17 ( خاصية تستخدم في تغيير اسم الأداة‎ )١۳( 

0000000000 7-7-1-5 ( خاصية تستخدم في تغيير النص الظاهر على الأداة‎ )١4( 

CSS رمز يستخدم بين المتغيرات الحرفية والنصوص لدمجها وجعلها سلسلة حرفية واحدة(‎ )٠١( 
a ( قيمة الخاصية ء1ط1ء۷ التي تمكننا من رؤية ملف الفيديو على الشاشة‎ )15( 
CS a مفتاح من لوحة المفاتيح عند الضغط عليه يتم تشغيل البرنامج(‎ )۱۷( 

)١16١‏ نوع من البيانات عبارة عن جدول بيانات في ذاكرة الكمبيوتر به البيانات التي احضرت من ملف اكسيل 
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(Pictu المطلوب استخدم لغة )7.26 فى إعداد مشروع بإاسم موو[ لإدراج صورة داخل أداة التحكم (0×2 8ء۲‎ )١( 
من اداة تحكم اخری (1530::1ع:110111)‎ 


PictureBox2.Image=Me.PictuteBox1.Imag( )‏ 
( )ادراج أداتى ×0 طعءاں)اعذم وأداة و٥٤)ںط‏ على نافذة النموذج ١‏ ( ) تنفيذ البرنامج بالضغط على مفتاح ۴5 
( ) بالنقر المزدوج على أداة 181140111 تظهر نافذة الكود نكتب فيها الكود 


( ) ومن الخاصية ٥و‏ ےو[ نختار 1217016 ثم الصورة المطلوبة ثم رءم0 ثم 0k‏ للأداة الأولى 





(5) المطلوب استخدم لغة 71.1206 فى إعداد مشروع بإسم 1011386 لإدراج صورة داخل أداة التحكم (80×1عPic)u۲)‏ 
من ملف مستخدما (11211111507) 


P=InputBox("'Enter A Image FileName'')( )‏ ( ) الضغط على ۳7 تظهرنافذة الكود ونكتب الكود 


ع 


( ) الضغط على ۴5 يظهر صندوق الإدخال نكتب فيه ملف الصورة | ( ) ادراج أداتى Button« PictureBox‏ 


PictureBox1.[Image=Image.FromFile(p) ) ) Dim p As Object ( ) 


(۳) المطلوب استخدم لغة )71.126 فى إعداد مشروع بإسم e‏ عو[ لإدراج صورة داخل أداة التحكم (601:©130:21ع21) 
من ملف مستخدما (:0012120130)) 


Dim م‎ As Object ( ) PictureBox1.I[Image=Image.FromFile(p)( ) 


Combobox ؛‎ PictureBox ادراج أداتى‎ ( ) P=ComboBox.SelectedItems ( ) 


( ) بالنقر المزدوج على أداة »ط0ط« _ه٥‏ تظهر نافذة الكود نكتب فيها الكود 








)ع( المطلوب استخدم لغة )11 ([؟ فى إعداد مشروع باسم Sound‏ لإدراج ملف صوت داخل أداة التحكم 
)sMediaPlayerسWind0w)‏ وتشغيله مستخدما صندوق الإدخال (×u)80مہ!)‏ 


X=InputBox("'Enter A Sound FileName'")‏ ) ( ( ) الضغط على مفتاح ۳5 فيظهر صندوق الإدخال 


( )AxWindowsMediaPlayer.URL=X Button<WindowsMediaPlayer ادراج أداتى‎ ( ) 


( ) النقر المزدوج على 130146011 تظهرنافذة نكتب فيها الكود ( ) نكتب فيه اسم ملف الصوت المراد تشغيله 
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)0( المطلوب استخدم لغة غ)©11. ([؟ في إعداد مشروع باسم Sound‏ لإدراج ملف صوت داخل أداة التحكم 
)sMediaPlayerسWind0)‏ وتشغيله مستخدما الأداة )Conbo Box)‏ 


) )النقر المزدوج على ComboBox‏ تظهرنافذة تلكتب فيها الكود 


Dim k As Object ( ) 


AxWindowsMediaPlayer.URL=k( ) k=ComboBox.Selectedltems( ) 


Combobox ‘WindowsMediaPlayer )ادراج أداتى‎ ) 


( )بالضغط على مفتاح 5 ونختار من أداة ×0 08ط اسم ملف الصوت المراد تشغيله 





(31) المطلوب استخدم لغة )71.116 فى إعداد مشروع بإسم 771060 لإدراج ملف فيديو داخل أداة التحكم 
)wsMediaPlayerسd0o Win‏ )وتشغيله مستخدما صندوق الإدخال (×u)80مہ!)‏ 


AxWindowsMediaPlayer.URL=V( ) Button<WindowsMediaPlayer )ادراج أداتى‎ ) 


Dim V As Object( (| V=InputBox("'Enter A Video FileName") ( ) 


( )الضغط على مفتاح ۳5 فيظهر صندوق الإدخال نكتب فيه اسم ملف الفيديو المراد تشغيله ثم نضغط على 0g‏ 
( )النقر المزدوج على أداة 831101 تظهر نافذة الكود نكتب فيها الكود التالى 





(۷) المطلوب استخدم لغة 1 فى إعداد مشروع بإسم ع710151 لإدراج ملف فيديو (WindowsMedia Player)‏ 
وتشغيله مستخدما الاداة (:001220150)) 





Dim D As Object ) ار‎ AxWindowsMediaPlayer.'URL=D ) ) 


D=ComboBox.SelectedItems ) )‏ ( ) النقر المزدوج على أداة :6001250130 
( ) ادراج أداتى  C0mboB0x>› WindowsMedia Player‏ تظهر نافذة نكتب فيها الكود التالى 





(۸) المطلوب استخدم لغة 712.24 فى إنشاء مشروع جديد تحتوى نافذة النموذج فيه على أداة تحكم واحدة 
(02120130")) ثم كتابة كود البرمجة الخاص بالإعلان عن متغير (016) من نوع 1272621816 

والإعلان عن متغيران (17516»22412,501)ليوضع بداخلهم اسم ملف قاعدة البيانات (1720611(242.15) التى تحتوى 
على بيانات الدول وجملة (0ع5616) 


( الانتقال لنافذة البرمجة بالضغط على مفتاح 1 ونكتب الكود التالى 


Dim dt as New DataTable( ) Dim filePath,sql as String( ) 


( )من مربع الأدوات 10011302 يتم وضع أداة التحكم ×080ط K٥"‏ داخل نافذة النموذج 
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